home *** CD-ROM | disk | FTP | other *** search
/ fxPAINT 1.0 / fxPAINT 1.0.iso / demos / blackirc / rexx / grab.birx < prev    next >
Encoding:
Text File  |  1999-01-30  |  926 b   |  37 lines
  1. /* Screengrabber-script originally by Phil Price
  2.  
  3.    Installation:
  4.    1. Download CyberGrab from Aminet and copy the file "CyberGrab"
  5.       to C:
  6.  
  7.    2. Add an entry to the CTCP Server:
  8.       CTCP Command: GRAB
  9.       Action: ARexx
  10.       Parameter: Rexx/Grab.birx
  11.  
  12.    3. Enjoy it :)
  13. */
  14.  
  15. options results
  16.  
  17. GETUNCTCPCOMM
  18. comm = result
  19.  
  20. GETCTCPNICK
  21. nick = result
  22.  
  23. ADDLIB("rexxreqtools.library",0,-30,0)
  24.  
  25. 'ECHO <<'comm'>> Received screenshot request ..'
  26.  
  27. call rtezrequest(''nick': Requested screenshot, shall I allow this ?','Yes|No','Snapshot Req')
  28.   if rtresult='0' then do;SENDCTCPReply nick comm 'Snapshot request rejected';EXIT;end
  29.   if rtresult='1' then do
  30.           SENDCTCPReply nick comm 'Please wait dealing with your request'
  31.           file = 'T:'nick'-grab.iff'
  32.           address command 'c:cybergrab 'file' delay 5';
  33.           SENDCTCPReply nick comm 'Sending snapShot'
  34.           DCCSEND nick file
  35.           Exit
  36.   end
  37.